home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr11 / powerb5.zip / KEY.BAS < prev    next >
BASIC Source File  |  1993-06-01  |  795b  |  21 lines
  1. 10 SCREEN 0: CLS : COLOR 15, 0: X = 22: LOCATE , , 0: KEY OFF
  2. 20 LOCATE 1, 1: PRINT "┌─────────┐    ┌──────────┐"
  3. 30 LOCATE 2, 1: PRINT "│Scan code│    │ASCII code│"
  4. 40 LOCATE 3, 1: PRINT "└─┬────┬──┘    └──┬────┬──┘"
  5. 50 FOR Y = 4 TO 22
  6. 60 LOCATE Y, 1: PRINT "  │    │          │    │"
  7. 70 NEXT Y
  8. 80 LOCATE 23, 1: PRINT "  └────┘          └────┘"
  9. 90 A$ = INKEY$: IF A$ = "" THEN GOTO 90
  10. 100 LOCATE X, 9: PRINT "          "
  11. 110 IF X = 22 THEN X = 4 ELSE X = X + 1
  12. 120 LOCATE X, 4: PRINT "    "
  13. 130 LOCATE X, 20: PRINT "    "
  14. 140 IF LEN(A$) > 1 THEN GOTO 170
  15. 150 REM Print ASCII CODE if available
  16. 160 LOCATE X, 20: PRINT STR$(ASC(A$)): GOTO 190
  17. 170 REM Print scan code if available
  18. 180 LOCATE X, 4: PRINT STR$(ASC(RIGHT$(A$, 1)))
  19. 190 LOCATE X, 9: PRINT "<-------->"
  20. 200 GOTO 90
  21.